home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / SCLIB.ARJ / SCL1SAMP.EXE / KEYSTAT.C < prev    next >
Text File  |  1992-01-01  |  1KB  |  62 lines
  1. #include <scl1.h>
  2. #include <scl1keys.h>
  3.  
  4.     /* shows the use of the KeyStatus functions */
  5.  
  6. main()
  7. {
  8. unsigned int KStat,OldKStat;
  9.  
  10. KStat=KeyStatus();
  11. do
  12.     {
  13.     OldKStat = KStat;
  14.  
  15.     if(KStat & ALT)
  16.         printf("\n\nALT ON ");
  17.     else
  18.         printf("\n\nALT OFF");
  19.  
  20.     if(KStat & LSHIFT || KStat & RSHIFT)
  21.         printf("\t\tSHIFT ON ");
  22.     else
  23.         printf("\t\tSHIFT OFF");
  24.  
  25.     if(KStat & CTRL)
  26.         printf("\tCONTROL ON ");
  27.     else
  28.         printf("\tCONTROL OFF");
  29.  
  30.     if(KStat & INSERT)
  31.         printf("\tINSERT ON ");
  32.     else
  33.         printf("\tINSERT OFF");
  34.  
  35.     if(KStat & CAPSL)
  36.         printf("\nCAPS LOCK ON ");
  37.     else
  38.         printf("\nCAPS LOCK OFF");
  39.  
  40.     if(KStat & NUML)
  41.         printf("\tNUM LOCK ON ");
  42.     else
  43.         printf("\tNUM LOCK OFF");
  44.  
  45.     if(KStat & SCROLL)
  46.         printf("\tSCROLL LOCK ON ");
  47.     else
  48.         printf("\tSCROLL LOCK OFF");
  49.  
  50.     printf("\n\nPress any other key to exit\n");
  51.  
  52.     do
  53.         {
  54.         KStat=KeyStatus();
  55.         }while(KStat == OldKStat && !KeyReady());
  56.  
  57.     if(KeyReady()==INS)
  58.         ClearKeyBuf();
  59.  
  60.     }while(!KeyReady());
  61. ClearKeyBuf();
  62. }